put empty into card field premiere of card id 2898
put empty into card field alternate of card id 2898
put empty into card field id 16 of card id 2898
put empty into card field id 17 of card id 2898
put "Sun," & sun into line 1 of card field id 10
put "Moon," & moon into line 2 of card field id 10
put "Mercury," & mercury into line 3 of card field id 10
put "Venus," & venus into line 4 of card field id 10
put "Mars," & mars into line 5 of card field id 10
put "Jupiter," & Jupiter into line 6 of card field id 10
put "Saturn," & Saturn into line 7 of card field id 10
put "Uranus," & Uranus into line 8 of card field id 10
put "Neptune," & Neptune into line 9 of card field id 10
put "Pluto," & Pluto into line 10 of card field id 10
put "Ascendant," & Ascendant into line 11 of card field id 10
put "Mid-Heaven," & midheaven into line 12 of card field id 10
put 1 into positivecount
put 1 into negativecount
put 1 into linecount
put "premiere" into fieldcount
repeat with x = 1 to 10
put item 2 of line x of card field id 10 into lowplanet
repeat with y = (x +1) to 12
put item 2 of line y of card field id 10 into hiplanet
if hiplanet < lowplanet then add 360 to hiplanet
put hiplanet - lowplanet into aspect
if aspect <= 8 or aspect >= 352 and aspect <= 360 then
put item 1 of line x of card field id 10 && "conjunct " & item 1 of line y of card field id 10 into line linecount of card field fieldcount of card id 2898
if linecount < 20 then add 1 to linecount
else
put 1 into linecount
put "alternate" into fieldcount
end if
end if
if aspect >= 172 and aspect <= 188 then
put item 1 of line x of card field id 10 && "oppose " & item 1 of line y of card field id 10 into line linecount of card field fieldcount of card id 2898
put item 2 of line x of card field id 10 & "," & item 2 of line y of card field id 10 into line negativecount of card field id 17 of card id 2898
add 1 to negativecount
if linecount < 20 then add 1 to linecount
else
put 1 into linecount
put "alternate" into fieldcount
end if
end if
if aspect >= 82 and aspect <= 98 or aspect >= 262 and aspect <= 278 then
put item 1 of line x of card field id 10 && "square " & item 1 of line y of card field id 10 into line linecount of card field fieldcount of card id 2898
put item 2 of line x of card field id 10 & "," & item 2 of line y of card field id 10 into line negativecount of card field id 17 of card id 2898
add 1 to negativecount
if linecount < 20 then add 1 to linecount
else
put 1 into linecount
put "alternate" into fieldcount
end if
end if
if aspect >= 112 and aspect <= 128 or aspect >= 232 and aspect <= 248 then
put item 1 of line x of card field id 10 && "trine " & item 1 of line y of card field id 10 into line linecount of card field fieldcount of card id 2898
put item 2 of line x of card field id 10 & "," & item 2 of line y of card field id 10 into line positivecount of card field id 16 of card id 2898
add 1 to positivecount
if linecount < 20 then add 1 to linecount
else
put 1 into linecount
put "alternate" into fieldcount
end if
end if
if aspect >= 54 and aspect <= 66 or aspect >= 294 and aspect <= 306 then
put item 1 of line x of card field id 10 && "sextile " & item 1 of line y of card field id 10 into line linecount of card field fieldcount of card id 2898
put item 2 of line x of card field id 10 & "," & item 2 of line y of card field id 10 into line positivecount of card field id 16 of card id 2898
add 1 to positivecount
if linecount < 20 then add 1 to linecount
else
put 1 into linecount
put "alternate" into fieldcount
end if
end if
if aspect >= 148 and aspect <= 152 or aspect >= 208 and aspect <= 212 then
put item 1 of line x of card field id 10 && "quincunx " & item 1 of line y of card field id 10 into line linecount of card field fieldcount of card id 2898
put item 2 of line x of card field id 10 & "," & item 2 of line y of card field id 10 into line negativecount of card field id 17 of card id 2898
add 1 to negativecount
if linecount < 20 then add 1 to linecount
else
put 1 into linecount
put "alternate" into fieldcount
end if
end if
end repeat
end repeat
repeat with x = 1 to 12
put item 2 of line x of card field id 10 into line x of card field id 15 of card id 2898
end repeat
repeat with x = 1 to 12
if (line x of card field id 15 of card id 2898) <= 180 then put abs((line x of card field id 15 of card id 2898) - 180) into line x of card field id 15 of card id 2898
else put abs((line x of card field id 15 of card id 2898) - 540) into line x of card field id 15 of card id 2898
end repeat
put the number of lines in card field id 16 of card id 2898 into m
repeat with x = 1 to m
if (item 1 of line x of card field id 16 of card id 2898) <= 180 then put abs ((item 1 of line x of card field id 16 of card id 2898) - 180) into item 1 of line x of card field id 16 of card id 2898
else put abs((item 1 of line x of card field id 16 of card id 2898) - 540) into item 1 of line x of card field id 16 of card id 2898
if (item 2 of line x of card field id 16 of card id 2898) <= 180 then put abs((item 2 of line x of card field id 16 of card id 2898) - 180) into item 2 of line x of card field id 16 of card id 2898
else put abs((item 2 of line x of card field id 16 of card id 2898) - 540) into item 2 of line x of card field id 16 of card id 2898
end repeat
put the number of lines in card field id 17 of card id 2898 into m
repeat with x = 1 to m
if (item 1 of line x of card field id 17 of card id 2898) <= 180 then put abs((item 1 of line x of card field id 17 of card id 2898) - 180) into item 1 of line x of card field id 17 of card id 2898
else put abs((item 1 of line x of card field id 17 of card id 2898) - 540) into item 1 of line x of card field id 17 of card id 2898
if (item 2 of line x of card field id 17 of card id 2898) <= 180 then put abs((item 2 of line x of card field id 17 of card id 2898) - 180) into item 2 of line x of card field id 17 of card id 2898
else put abs((item 2 of line x of card field id 17 of card id 2898) - 540) into item 2 of line x of card field id 17 of card id 2898